(DE ASSOC2 (X Y) (FOR NEW Z IN Y
	WHEN (EQUAL X (CAR Z))
	 DO (RETURN Z)))))))

(DE UNION (X Y) (FOR NEW Z IN X WHEN (NOT (MEMBER Z FOR-VALUE))
  XLIST FIRST Y Z))))))))))

(DE SORT (X FN) 
  (PROG(RET)
   (FOR NEW Z IN X DO (SETQ RET (INSERT Z RET FN)))
   (RETURN RET)))))))))

(DE INSERT (ELT LST FN)
  (COND((NULL LST) (LIST ELT))
       ((FN ELT (CAR LST)) (CONS ELT LST))
       (T(RPLACD LST (INSERT ELT (CDR LST) FN))))))))

(DE TST ()(DRAWS (CADR (CATALOG @ (4))) NIL))))))

(SETQ REALEFT (SETQ REALBOTTOM -600))
(SETQ REALHEIGHT (SETQ REALWIDTH 1200)))
(DE LABELL (MSG) (PROG2 (DTYOS) (PRINC MSG) (DTYOU)))))))))


(DE SQRT (X) (PROG(TRY NEWTRY)
  (SETQ TRY 2.0)
RETRY
  (COND ((AE TRY (SETQ NEWTRY (*TIMES 0.5 (*PLUS (*QUO X TRY) TRY))))
          (RETURN NEWTRY)))
  (SETQ TRY NEWTRY)
  (GO RETRY))))))))))))

(DE AE (X Y)(LESSP (ABS (DIFFERENCE X Y)) 0.01)))))))